home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 2510.ZIP / TRSOURCE.EXE / CEILING.C < prev    next >
C/C++ Source or Header  |  1990-10-22  |  467b  |  24 lines

  1. /*********
  2. *
  3. * CEILING.C
  4. *
  5. * by Tom Rettig
  6. * modified by Leonard Zerman
  7. *
  8. * Placed in the public domain by Tom Rettig Associates, 10/22/1990.
  9. *
  10. *  Syntax: CEILING( <expN> )
  11. *  Return: Integer just above <expN>.
  12. *          If no decimal value, integer equal to <expN>.
  13. *********/
  14.  
  15. #include "trlib.h"
  16.  
  17. TRTYPE ceiling()
  18. {
  19.    if ( PCOUNT == 1 && ISNUM(1) )
  20.       _retnd(_tr_ceil( _parnd(1)));
  21.    else
  22.       _retnd(ERROR);    /* error return 0 */
  23. }
  24.